UC知道[microsoft][odbc sql server driver][sql server]在关键字 'select 附近有语法错
来源：百度知道 编辑：UC知道 时间：2024/05/16 15:03:21
Dim rs1 As New ADODB.Recordset
Private Sub Form_Load()
Adodc1.ConnectionString = "DSN=NBooks"
Adodc1.RecordSource = "select * from xsb"
Adodc1.Refresh
Adodc2.ConnectionString = "DSN=NBooks"
Adodc2.RecordSource = "select * from tslbb"
Adodc2.Refresh
Set rs1 = New ADODB.Recordset
rs1.Open "select top 20 书名,sum(销售数量)as 合计销售数量 from xsb where year(日期)='" + Format(Date, "yyyy") + "'and month(日期)='" + Format(Date, "mm") + "' group by 书名,出版社 order by 2 desc", Cnn, adOpenKeyset, adLockOptimistic
With msChart1
.ShowLegend = True
.Title.text = " " & Year(Date) & "年" & Month(Date) & "月份 " & DataCombo1.text & "图书销量排行（前20名） " '设置图表名称
.Title.VtFont.Size = 12 '设置字体大小
.Title.VtFont.VtColor.
Private Sub Form_Load()
Adodc1.ConnectionString = "DSN=NBooks"
Adodc1.RecordSource = "select * from xsb"
Adodc1.Refresh
Adodc2.ConnectionString = "DSN=NBooks"
Adodc2.RecordSource = "select * from tslbb"
Adodc2.Refresh
Set rs1 = New ADODB.Recordset
rs1.Open "select top 20 书名,sum(销售数量)as 合计销售数量 from xsb where year(日期)='" + Format(Date, "yyyy") + "'and month(日期)='" + Format(Date, "mm") + "' group by 书名,出版社 order by 2 desc", Cnn, adOpenKeyset, adLockOptimistic
With msChart1
.ShowLegend = True
.Title.text = " " & Year(Date) & "年" & Month(Date) & "月份 " & DataCombo1.text & "图书销量排行（前20名） " '设置图表名称
.Title.VtFont.Size = 12 '设置字体大小
.Title.VtFont.VtColor.
那一个SQL有问题？
附：
2楼的回答是错误的。select top 20 书名,sum(销售数量)as 合计销售数量 from xsb
这样写没问题的
select top 20 书名,sum(销售数量)as 合计销售数量 from xsb
应该是
select 书名,sum(销售数量)as 合计销售数量 top 20 from xsb
ni shi sb
先看看是哪个sql有问题，第一个还是第二个？